Bài 1: Viết chương trình Pascal nhập số tự nhiên n xuất ra màn hình
+ Các số chẵn từ 1 đến n
+ Đếm bao nhiêu số chẵn từ 1 đến n
+ Tính tổng các số chẵn đó
+ Xét tổng đó là số chẵn hay lẻ ?
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Câu 2:
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
write('Tong cac so chan la: ',t);
readln
end.
Câu 3:
Program HOC24;
var i,t,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if n mod i=0 then t:=t+i;
write('Tong cac uoc cua ',n,' la: ',t);
readln
end.
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Viết chương trình nhập số tự nhiên n 2 in ra màn hình các số chẵn từ 1 đến n tính tổng số chẵn Vd) N=10;các số chẵn2,4,6,8,10 Tính tổng =2+4+6+8+10
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
if (i%2==0) s=s+i;
cout<<s;
return 0;
}
Sử dụng chương trình pascal:
a,Viết chương trình nhập 1 số n từ bàn phím.
b,Đếm xem có bao nhiêu số chẵn từ 0 đến n và tính tổng các số chẵn đó.
uses crt;
var t,n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
t:=0;
for i:=0 to n do
if i mod 2=0 then
begin
t:=t+i;
dem:=dem+1;
end;
writeln(dem,' ',t);
readln;
end.
Bài 1: Viết chương trình nhập vào 1 dãy số nguyên xuất dãy số đó ra màn hình tính tích các số chẵn và xuất ra màn hình.
Bài 2: Viết chương trình nhập 1 dãy số nguyên, xuất dãy số đó ra màn hình tính tổng các số chẵn các số lẻ và xuất ra màn hình.
program timtich;
uses crt;
var i,n:integer;
tich:longint;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
tich:=1;
writeln;
for i:=1 to n do
if a[i] mod 2=0 then tich:=tich*a[i];
writeln('tich ca phan tu chan cua mang la:',tich);
readln;
end.
program timtong;
uses crt;
var i,n:integer;
tong:longint;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
tong:=0;
writeln;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cac phan tu chan cua mang la:',tong);
tong:=0;
writeln;
for i:=1 to n do
if a[i] mod 2=1 then tong:=tong+a[i];
writeln('tong cac phan tu le cua mang la:',tong);
readln;
end.
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=1;
for i:=1 to n do
if a[i] mod 2=0 then s:=s*a[i];
writeln(s);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
readln;
end.
Bạn kham khảo bài của mình nhé!
Program nhap_so_n;
Uses crt;
Var i,n,s:integer;
Begin clrscr;
Write('Nhap so n= ');Readln(n);
S:=0;
For i:=1 to n do
If i mod 2 = 0 do S:=S+i;
Writeln;
Write('tong cac so chan la ',S);
Readln;
End.
Mình chúc bạn học tốt!
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100],dem,t;
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
dem=0; t=0;
for (int i=1; i<=n; i++)
if (A[i]%2==0) dem++;
else t+=A[i];
cout<<dem<<endl;
cout<<t;
return 0;
}
Viết chương trình Pascal để nhập vào một số tự nhiên n. In lên màn hình tổng các số chẵn từ 1 đến n. Mn giúp mình với!
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chan trong khoang tu 1 toi ',n,' la:');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
program chan;
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
if i mod 2=0 then write('cac so chan tu 1 den n la:');
readln
end.
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chan trong khoang tu 1 toi ',n,' la:');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
nha bạn
|~ Hok tốt ~|